home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 January / 1994-01b.d64 / fall letters3.fb (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  351b  |  13 lines
  1. 10 print"[147]"
  2. 15 for xx=1to 2
  3. 20 m$="[158] * * *  falling letters * * *"
  4. 30 ln=10+xx
  5. 40 b=len(m$):ct=(40-b)/2-1:for a=1tob:x$=mid$(m$,a,1):printchr$(19)
  6. 50 if x$<>" "thenfor t=1to ln-2:printtab(ct+a)x$chr$(145):printtab(ct+a)" "
  7. 60 next:printtab(ct+a)x$:next
  8. 110 print""
  9. 130 ln=13
  10. 140 b=len(m$):ct=(40-b)/2-1:for a=1tob:x$=mid$(m$,a,1):printchr$(19)
  11. 150 if x$<>" "thenfor t=1to ln-2:printtab(ct+a)x$chr$(145):printtab(ct+a)" "
  12. 160 next:printtab(ct+a)x$:next:next
  13.